home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / mind read.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  155 lines
  1. 100 REM *******************************
  2. 110 REM *******************************
  3. 120 REM ****                       ****
  4. 130 REM ****  BY BRIAN A.MITCHELL  ****
  5. 140 REM ****                       ****
  6. 150 REM ****  BROCKVILLE, ONTARIO  ****
  7. 160 REM ****                       ****
  8. 170 REM ****     613-342-0733      ****
  9. 180 REM ****                       ****
  10. 190 REM ****       FEB 1984        ****
  11. 200 REM ****                       ****
  12. 210 REM ****      TPUG# 2923       ****
  13. 220 REM ****                       ****
  14. 230 REM *******************************
  15. 240 REM *******************************
  16. 250 REM
  17. 260 FORL=54272TO54296:POKEL,0:NEXT:L=0
  18. 270 PRINT"[147][152]":POKE53280,0:POKE53281,0
  19. 280 POKE54296,15:POKE54277,16:POKE54278,125:POKE54276,17
  20. 290 GOSUB1490:IFPEEK(1854)<>13THEN790
  21. 300 PRINT"[147]":PRINTTAB(13)"  MIND READ  "
  22. 310 PRINT:PRINT"INSTRUCTIONS"
  23. 320 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183]"
  24. 330 PRINT:PRINT
  25. 340 PRINT"THE COMPUTER WILL ASK YOU TO SELECT A NUMBER BETWEEN 1 AND 100."
  26. 350 PRINT
  27. 360 PRINT"YOU WILL THEN BE REQUIRED TO PERFORM SOME SIMPLE ARITHMETIC";
  28. 370 PRINT" ON PAPER, USING THE NUMBER YOU HAVE SELECTED ."
  29. 380 PRINT
  30. 390 PRINT"ON COMPLETION THE COMPUTER WILL GIVE YOUTHE ANSWER, WITHOUT EVER ";
  31. 400 PRINT"HAVING SEEN THEORIGINAL NUMBER."
  32. 410 GOSUB810
  33. 420 PRINT"[147]"
  34. 430 A$="1.SELECT A NUMBER BETWEEN 1 AND 100.":P$=""
  35. 440 GOSUB850
  36. 450 FORT=1TO600:NEXTT
  37. 460 A$="2.WRITE THE NUMBER ON A PIECE OF PAPER.":P$=""
  38. 470 GOSUB850:GOSUB810
  39. 480 A$="3.MULTIPLY YOUR NUMBER BY 2.":P$=""
  40. 490 GOSUB850:GOSUB810
  41. 500 GOSUB940
  42. 510 A$="4.TO THAT TOTAL ADD":P$=""
  43. 520 GOSUB850
  44. 530 PRINT"";TAB(19);NB;"."
  45. 540 GOSUB810
  46. 550 A$="5.DIVIDE YOUR TOTAL BY 2.":P$=""
  47. 560 GOSUB850:GOSUB810
  48. 570 A$="6.SUBTRACT YOUR SELECTED NUMBER FROM THE  PRESENT TOTAL."
  49. 580 P$=""
  50. 590 GOSUB850:GOSUB810
  51. 600 A$="7.PRESS SPACE BAR TO SEE THE ANSWER !":P$=""
  52. 610 GOSUB850:GOSUB810
  53. 620 PRINT"[147]"
  54. 630 A$="THE CORRECT ANSWER IS":P$=""
  55. 640 GOSUB850
  56. 650 PRINT""TAB(21);NB/2
  57. 660 A$="---------------------------------------":P$=""
  58. 670 GOSUB850
  59. 680 FORT=1TO1000:NEXTT
  60. 690 A$="IF YOUR TOTAL DIFFERS PRESS 'H'."
  61. 700 P$=""
  62. 710 GOSUB850
  63. 720 A$=" PRESS 'C' TO CONTINUE "
  64. 730 P$=""
  65. 740 GOSUB850
  66. 750 GETAN$:IFAN$=""THEN750
  67. 760 IFAN$="H"THEN970
  68. 770 IFAN$<>"C"THEN750
  69. 780 GOTO420
  70. 790 SYS64738
  71. 800 END
  72. 810 PRINT""TAB(12)" PRESS SPACE BAR "
  73. 820 GETAN$:IFAN$<>CHR$(32)THEN820
  74. 830 PRINT""TAB(12)"                  "
  75. 840 RETURN
  76. 850 FORL=1TOLEN(A$)
  77. 860 PRINTP$;LEFT$(A$,L)
  78. 870 POKE54273,88
  79. 880 FORT=1TO10:NEXTT
  80. 890 POKE54273,34
  81. 900 FORT=1TO5:NEXTT
  82. 910 NEXTL
  83. 920 POKE54273,0
  84. 930 RETURN
  85. 940 NB=INT(100*RND(1))+1
  86. 950 IFNB/2-INT(NB/2)=.5THEN940
  87. 960 RETURN
  88. 970 READA$
  89. 980 IFA$="0"THENRESTORE:GOTO970
  90. 990 P$=""
  91. 1000 GOSUB850
  92. 1010 FORT=1TO1500:NEXTT
  93. 1020 PRINT"[147]"
  94. 1030 A$=" COMPUTERS ANSWER [146]":P$=""
  95. 1040 GOSUB850
  96. 1050 PRINT""TAB(18);NB/2
  97. 1060 A$="ENTER YOUR SELECTED NUMBER"
  98. 1070 P$=""
  99. 1080 GOSUB850
  100. 1090 PRINT""TAB(27);:INPUTAN$
  101. 1100 AN=VAL(AN$)
  102. 1110 IFAN=0THENGOSUB1340:GOTO1060
  103. 1120 IFAN<1ORAN>100THENGOTO1390
  104. 1130 PRINT"";AN
  105. 1140 A$="TIMES":P$=""
  106. 1150 GOSUB850
  107. 1160 PRINT""TAB(12);" 2 =";2*AN
  108. 1170 PRINT""2*AN
  109. 1180 A$="PLUS"
  110. 1190 P$=""
  111. 1200 GOSUB850
  112. 1210 PRINT""TAB(12);NB"=";2*AN+NB
  113. 1220 PRINT""2*AN+NB
  114. 1230 A$="DIVIDED BY 2":P$=""
  115. 1240 GOSUB850
  116. 1250 PRINT""TAB(20);"="(2*AN+NB)/2
  117. 1260 PRINT""(2*AN+NB)/2
  118. 1270 A$="MINUS SELECTED NUMBER":P$=""
  119. 1280 GOSUB850
  120. 1290 PRINT"";TAB(29);"=";(2*AN+NB)/2-AN
  121. 1300 A$=" PRESS SPACE BAR TO CONTINUE [146]":P$=""
  122. 1310 GOSUB850
  123. 1320 GETAN$:IFAN$<>CHR$(32)THEN1320
  124. 1330 GOTO300
  125. 1340 A$="SORRY,THAT'S NOT A NUMBER!"
  126. 1350 P$=""
  127. 1360 GOSUB850
  128. 1370 FORT=1TO1200:NEXTT
  129. 1380 RETURN
  130. 1390 A$=" OUT OF REQUESTED RANGE !!"
  131. 1400 P$=""
  132. 1410 GOSUB850
  133. 1420 FORT=1TO1200:NEXTT
  134. 1430 A$="BETTER LEARN HOW TO READ FIRST !!!"
  135. 1440 P$=""
  136. 1450 PRINT"[147]"
  137. 1460 GOSUB850
  138. 1470 FORT=1TO1800:NEXTT
  139. 1480 GOTO300
  140. 1490 A$="  MIND READ  "
  141. 1500 P$=""
  142. 1510 GOSUB850
  143. 1520 FORT=1TO300:NEXTT
  144. 1530 A$="BY-BRIAN MITCHELL"
  145. 1540 P$=""
  146. 1550 GOSUB850
  147. 1560 FORT=1TO1800:NEXTT
  148. 1570 RETURN
  149. 1580 DATA"> TIME TO SHARPEN THE PENCIL !!"
  150. 1590 DATA"> IT'S ONLY SIMPLE ARITHMETIC !!"
  151. 1600 DATA"> BETTER GO BACK TO SCHOOL !!!"
  152. 1610 DATA"> TRY USING A CALCULATOR !!!"
  153. 1620 DATA"> YOU NEED A COMPUTER !!!"
  154. 1630 DATA"0"
  155.